home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / networking / misc / lpr1p0b.lha / lpsync < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.3 KB  |  49 lines
  1. /*******************************************************************************************************************
  2. * lpsync hostname printername
  3. *
  4. * 1) start printer
  5. *    lets the line printer daemon rescan the spooler directory
  6. *    syntax: \1printer\n 
  7. *
  8. *******************************************************************************************************************/
  9.  
  10. options failat 10
  11.  
  12. signal on halt
  13. signal on ioerr
  14. signal on break_c
  15.  
  16. if arg() < 1 | arg(1) = '?' then call usage 
  17.  
  18. parse arg Hostname PrI
  19.  
  20. /* parse var Options file Options */
  21.  
  22. say 'Resyncing of printer ' || PrI ' on ' || Hostname  ':'
  23.  
  24. /* Open printer tcp connection  and file to send */
  25.  
  26. If ~Open(pr, 'TCP:' || Hostname || '/printer', 'W') Then Do; Say '*** Service not present'; Exit 10; End
  27.  
  28. /* Init remote printer daemon to accept files */
  29.  
  30. writeln(pr,d2c(1) || PrI)
  31. chr=readch(pr,1)
  32. if chr ~= d2c(1) then Do; Say '*** Unknown remote printer: ' || c2b(chr);   call close pr;  Exit 10; End
  33. if chr = d2c(1) then Do; Say 'Deamon is up!'; End
  34. call close pr
  35. exit 0
  36.  
  37. /* ----------------------------------------------------------------------- */
  38. /* Error Handling */
  39. halt:
  40. oerr:
  41. reak_c:
  42. exit 10
  43.  
  44. /* ----------------------------------------------------------------------- */
  45. usage:
  46.     say "Usage: lpsync hostname printername"
  47.     say
  48.     exit 0
  49.